﻿Public Partial Class Lst_Tracking
    Inherits System.Web.UI.Page

    ''' <summary>
    ''' Puntero a la página maestra en la cual está contenida la página actual.
    ''' </summary>
    Public masterpage As Reporte

    ''' <summary>
    ''' Esta página permite consultar informes de auditoría y uso del sistema.
    ''' </summary>
    ''' <param name="sender">Objeto emisor del evento.</param>
    ''' <param name="e">Argumentos pasados por parámetro.</param>
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim obr As New BR.Web.Utilitarios.Listados.Usuarios
        Dim ods As New DataSet

        masterpage = CType(Page.Master, Reporte) 'instancia iniciada de la clase de masterpage
        masterpage.lblTitulo = "Informe de Auditoria de Accesos al Sistema"
        masterpage.InicializarPagina(obr)
    End Sub

    ''' <summary>
    ''' Este método se utiliza para vincular el formulario con el tema seleccionado.
    ''' </summary>
    Protected Overloads Sub OnPreInit() Handles Me.PreInit
        'Aplicacion de Tema
        If Not Session("Tema") Is Nothing Then
            Page.Theme = Session("Tema").ToString
        End If
    End Sub
End Class